library(tidyverse)
library(cepespR)
library(readxl)
library(data.table)
library(stargazer)
library(haven)

#utilizar file= arquivo1.csv
library(readr)
arquivo1 <- read_delim("arquivo1.csv", 
                       delim = ";", escape_double = FALSE, locale = locale(decimal_mark = ",", 
                                                                           grouping_mark = ".", encoding = "WINDOWS-1252"), 
                       trim_ws = TRUE)



FN_e<-filter(arquivo1,Dep_Federal==0)
FN_f<-filter(arquivo1,Dep_Federal==1)

#Deputado_federal_total

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,Dep_Federal)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(Dep_Federal))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"Total2010"="2010")
Tabela3<-rename(Tabela3,"Total2014"="2014")
Tabela3<-rename(Tabela3,"Total2018"="2018")
Tabela_Total<-Tabela3
#Deputado_federal_N_capitais

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==0)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==0)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,Dep_Federal)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(Dep_Federal))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"N_Capi2010"="2010")
Tabela3<-rename(Tabela3,"N_Capi2014"="2014")
Tabela3<-rename(Tabela3,"N_Capi2018"="2018")
Tabela_NCapitais<-Tabela3

#Deputado_federal_capitais

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==1)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_f%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==1)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,Dep_Federal)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(Dep_Federal))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"Capi2010"="2010")
Tabela3<-rename(Tabela3,"Capi2014"="2014")
Tabela3<-rename(Tabela3,"Capi2018"="2018")
Tabela_Capitais<-Tabela3

Tabela7<-cbind(Tabela_Total,Tabela_NCapitais[,2:4],Tabela_Capitais[,2:4])
Tabela7<-select(Tabela7,Partido,Total2010,N_Capi2010,Capi2010,
                  Total2014,N_Capi2014,Capi2014,
                  Total2018,N_Capi2018,Capi2018)
rm(Munic,Partidos,Tabela,Tabela_Capitais,Tabela_NCapitais,Tabela_Total,Tabela2,
   Tabela3,Partido)

#Deputado estadual
FN_e$estadual<-1
#Deputado_estadual_total

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,estadual)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(estadual))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"Total2010"="2010")
Tabela3<-rename(Tabela3,"Total2014"="2014")
Tabela3<-rename(Tabela3,"Total2018"="2018")
Tabela_Total<-Tabela3
#Deputado_estadual_N_capitais

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==0)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==0)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,estadual)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(estadual))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"N_Capi2010"="2010")
Tabela3<-rename(Tabela3,"N_Capi2014"="2014")
Tabela3<-rename(Tabela3,"N_Capi2018"="2018")
Tabela_NCapitais<-Tabela3

#Deputado_estadual_capitais

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==1)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  count(Partido,sort=TRUE)->Partidos

Tabela <- Partidos %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(n))%>%
  spread(ANO_ELEICAO,Valor)
Tabela [is.na(Tabela)] = 0
Partido<-Tabela$Partido

FN_e%>%filter(Partido==13|Partido==15|Partido==45|Partido==25|Partido==11|
                Partido==40|Partido==22|Partido==12|Partido==14|Partido==43|
                Partido==20|Partido==23|Partido==13|Partido==65|Partido==10|
                Partido==50|Partido==55|Partido==77|Partido==90|Partido==17|
                Partido==19|Partido==30)%>%
  filter(capitais==1)%>%
  group_by(Partido,ANO_ELEICAO)%>%
  select(Partido,Munic_resi,estadual)->Munic
Munic<-unique(Munic)

Tabela2 <- Munic %>% group_by(Partido, ANO_ELEICAO) %>%
  summarise(Valor = sum(estadual))%>%
  spread(ANO_ELEICAO,Valor)
Tabela2 [is.na(Tabela2)] = 0

Tabela3<-Tabela[,2:4]/Tabela2[,2:4]
Tabela3<-round(Tabela3, digits = 2)
Tabela3<-cbind(Partido,Tabela3)
Tabela3<-rename(Tabela3,"Capi2010"="2010")
Tabela3<-rename(Tabela3,"Capi2014"="2014")
Tabela3<-rename(Tabela3,"Capi2018"="2018")
Tabela_Capitais<-Tabela3

Tabela8<-cbind(Tabela_Total,Tabela_NCapitais[,2:4],Tabela_Capitais[,2:4])
Tabela8<-select(Tabela8,Partido,Total2010,N_Capi2010,Capi2010,
                  Total2014,N_Capi2014,Capi2014,
                  Total2018,N_Capi2018,Capi2018)
rm(Munic,Partidos,Tabela,Tabela_Capitais,Tabela_NCapitais,Tabela_Total,Tabela2,
   Tabela3,Partido)

SIGLA<- data.table(Partido = c(30,90,55,77,13,
                                   25,45,15,14,11,
                                   22,20,12,40,43,
                                   23,65,10,
                                   17,50,19),
                   Sigla = c("NOVO","PROS","PSD","SD","PT",
                             "DEM","PSDB","MDB","PTB","PP",
                             "PL","PSC","PDT","PSB","PV",
                             "PPS","PCdoB","Republicanos",
                             "PSL","PSOL","Podemos")) 
Tabela7<-left_join(Tabela7,SIGLA,by="Partido")
Tabela7<-select(Tabela7,Sigla,Partido:Capi2018)
Tabela7<-arrange(Tabela7,desc(Total2010))

Tabela8<-left_join(Tabela8,SIGLA,by="Partido")
Tabela8<-select(Tabela8,Sigla,Partido:Capi2018)
Tabela8<-arrange(Tabela8,desc(Total2010))

rm(FN_e,FN_f,SIGLA)

